home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / cli / RonII031.lha / dist / ronii / rexx / example.ron next >
Encoding:
Text File  |  1995-01-22  |  1.1 KB  |  55 lines
  1. /* ronII ARexx demo */
  2.  
  3. address ron_II
  4.  
  5. say "What's watched?"
  6. say ""
  7. list stem l
  8. do i=0 to l.count; say l.i; end;
  9.  
  10. say ""
  11. say "ok and now parameters of them"
  12. say ""
  13.  
  14. do i=0 to l.count
  15.    show l.i s
  16.    say "------------"l.i"--------------"
  17.    say "File: '"s.file"'"
  18.    say "Fully qualified name: '"s.full"'"
  19.    say "Run this command: '"s.exec"'"
  20.    say "Output to: '"s.out"'"
  21.    say "Append?: "s.outapp
  22.    say "Input from: '"s.in"'"
  23.    say "Mailuser: '"s.mailuser"'"
  24.    say "Stack: "s.stack
  25.    say "Priority: "s.pri
  26.    say "Customshell is: '"s.customsh"'"
  27.    say "Use systemshell?: "s.syssh
  28.    say "Don't log start?: "s.nolog
  29. /*   say "---" */
  30. end;
  31.  
  32. say ""
  33. say "Now I will add 'S:Startup-sequence'. If it"
  34. say "is already watched, I will ignore it (FORCE)"
  35. say "The output of 'type S:Startup-sequence' will"
  36. say "be mailed to root"
  37.  
  38. add 's:startup-sequence "type S:Startup-sequence" mailuser root force'
  39. list stem l
  40. do i=0 to l.count; say l.i; end;
  41.  
  42. say ""
  43. say "now remove 'S:Startup-sequence' but now with"
  44. say "del 'sys:s/startup-sequence'"
  45.  
  46. del 'sys:s/startup-sequence'
  47. list stem l
  48. do i=0 to l.count; say l.i; end;
  49.  
  50. say ""
  51. say "ok. I quit."
  52. say "Good bye"
  53.  
  54. /* quit */
  55.